home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Abacus diskdrives IO.adf / CH4 / program4.bas < prev    next >
BASIC Source File  |  1978-06-28  |  485b  |  23 lines
  1. 'Program 4:
  2. DECLARE FUNCTION xOpen& LIBRARY
  3. DECLARE FUNCTION Execute& LIBRARY
  4.  
  5. LIBRARY "dos.library"
  6.  
  7. NewCommand:
  8. INPUT "1>";Command$
  9. Reaction:
  10. Command$=Command$+CHR$(0)
  11. Display$="CON:0/0/640/200/CLI-Basic"+CHR$(0)
  12. ' PAL screens can use Display$="CON:0/0/640/256/CLI-Basic"+CHR$(0)'
  13. connection&=xOpen&(SADD(Display$),1006)
  14. extra&=Execute&(SADD(Command$),0,connection&)
  15. FOR i=1 TO 20000:NEXT i
  16. CALL xClose(connection&)
  17.  
  18. INPUT "more (y) ";w$
  19. IF w$="y" THEN NewCommand
  20. LIBRARY CLOSE
  21. END
  22.  
  23.